
capture drop sample
gen sample=(n_ud==1 & S_pds==1 & (VF==1 | (VF==0 & sh_buy_sp_nonVF>=0.2 )))	 
	 
eststo: reghdfe ln_mu_o_B   i1.VF#i2005.year   i1.VF#i2006.year   i1.VF#i2007.year   i1.VF#i2008.year     ///
i1.VF#i2010.year   i1.VF#i2011.year   i1.VF#i2012.year age_buy_month age_buysel_month      ln_p_inpf_sbjo ln_q_sbjo     if sample==1  ///
, abs(gr_sjt  b_id cohort_sb) vce (cluster gr_by)
estimates store markup

coefplot markup, vertical keep( 1.VF#2005.year  1.VF#2006.year 1.VF#2007.year ///
1.VF#2008.year  1.VF#2010.year 1.VF#2011.year 1.VF#2012.year) baselevels ///
 xline(4.5, lpattern(dash) lcolor(gray) lwidth(0.2))  ///
ciopts( lcolor(gray) lwidth(0.1)) ///
yline(0, lcolor(gray) lwidth(0.1))  ytitle("Estimate on Coefficient on Buyer = VF", size(small))  xtitle("Markup", size(small))  ///
graphregion (fcolor(white) lcolor(white)) plotregion(fcolor(white) lcolor(white)) ///
     xlab(1 "2005" 2 "2006" 3 "2007" 4 "2008" 5 "2010" 6 "2011" 7 "2012" , noticks labsize(small)) mcolor(black) msymbol(x) msize(large) ylab(, labsize(small) nogrid)
graph export "${figures}\Figure4.pdf", replace   